home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / rendermap.scm.z / rendermap.scm
Encoding:
Text File  |  1999-07-21  |  2.6 KB  |  75 lines
  1. ;
  2. ;
  3. ;
  4. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  5. ; At ECS Dept, University of Southampton, England.
  6.  
  7. ; This program is free software; you can redistribute it and/or modify
  8. ; it under the terms of the GNU General Public License as published by
  9. ; the Free Software Foundation; either version 2 of the License, or
  10. ; (at your option) any later version.
  11. ; 
  12. ; This program is distributed in the hope that it will be useful,
  13. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ; GNU General Public License for more details.
  16. ; 
  17. ; You should have received a copy of the GNU General Public License
  18. ; along with this program; if not, write to the Free Software
  19. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.  
  22. (define (script-fu-render-map inSize inGrain inGrad inWiden) 
  23.  
  24.  
  25.         (set! theWidth inSize)
  26.     (set! theHeight inSize)
  27.         (set! theImage (car(gimp-image-new theWidth theHeight RGB)))
  28.  
  29.         (gimp-selection-all theImage)
  30.  
  31.         (set! theLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "I've got more rubber ducks than you!" 100 NORMAL)))
  32.         (gimp-image-add-layer theImage theLayer 0)
  33.         (plug-in-solid-noise TRUE theImage theLayer 1 0 (rand 65536) inGrain inGrain inGrain)
  34.  
  35.     (if (= inWiden TRUE) (begin
  36.             (set! thinLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "Camo Thin Layer" 100 NORMAL)))
  37.             (gimp-image-add-layer theImage thinLayer 0)
  38.         (let     ((theBigGrain (min 15 (* 2 inGrain))))
  39.                      (plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) theBigGrain theBigGrain theBigGrain)
  40.         )
  41.         (gimp-palette-set-background '(255 255 255))
  42.         (gimp-palette-set-foreground '(0 0 0))
  43.         (let     ((theMask (car(gimp-layer-create-mask thinLayer 0))))
  44.             (gimp-image-add-layer-mask theImage thinLayer theMask)
  45.             (gimp-blend theImage theMask FG-BG-RGB NORMAL LINEAR 100 
  46.                 0 REPEAT-TRIANGULAR FALSE 0 0 0 0 0 (/ theHeight 2) )
  47.         )
  48.         (set! theLayer (car(gimp-image-flatten theImage)))
  49.     ))
  50.     
  51.     (gimp-selection-none theImage)
  52.     (gimp-gradients-set-active inGrad)
  53.     (plug-in-gradmap TRUE theImage theLayer)
  54.         (gimp-display-new theImage)
  55. )
  56.  
  57.  
  58.  
  59. ; Register the function with the GIMP:
  60.  
  61. (script-fu-register
  62.  "script-fu-render-map"
  63.  "<Toolbox>/Xtns/Script-Fu/Patterns/Render Map"
  64.  "foo"
  65.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  66.  "28th April 1998"
  67.  "Chris Gutteridge / ECS @ University of Southampton, England"
  68.  ""
  69.  SF-VALUE "Image Size:" "256"
  70.  SF-VALUE "Granularity (0 - 15):" "4"
  71.  SF-VALUE "Gradient:" "\"Land_and_Sea\""
  72.  SF-TOGGLE "TRUE = Detail in middle, FALSE = tile" FALSE
  73. )
  74.  
  75.